home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / FIGIII-9.OBJ < prev    next >
Text File  |  1990-01-24  |  1KB  |  25 lines
  1. 0999          0 0999          0 Origin
  2. 1000          0   OP          0
  3. 1001          0    X          0
  4. 1002          0    Y          0
  5. 1003          0    Z          0
  6. 1004          0               0 Dummy included to reserve read space
  7. 1005          1  ONE          1 Constant one
  8. 1006     401000          RD  OP Read OP, X, Y
  9. 1007     001000          LD  OP Load OP
  10. 1008     021005          SU ONE Find difference for test
  11. 1009     241021          BN*+12 If < 1 go to halt
  12. 1010     251017          BZ*+7  If = 1 go to add routine
  13. 1011     021005          SU ONE If > 1 see if it is 2
  14. 1012     241021          BN*+9  If not 2 go to halt
  15. 1013     001001          LD   X Load X
  16. 1014     021002          SU   Y Subtract Y
  17. 1015     031003          ST   Z Store at Z
  18. 1016     261006          BU*-10 Go back to start
  19. 1017     001001          LD   X Load X
  20. 1018     011002          AD   Y Add Y
  21. 1019     031003          ST   Z Store at Z
  22. 1020     261006          BU*-14 Go back to start
  23. 1021     500000          500000 Halt
  24. 9999     001006          EN*-16 End of code with starting location
  25.